home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 March & April / rerun-1986-03-04.d64 / autonumber 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  25 lines
  1. 80 sys65517:ifpeek(781)=22thenvic=1
  2. 90 if vic thenx=peek(56):base=peek(55)+256*(x-1)+1:poke56,x-1:goto 110
  3. 100 base=49152
  4. 110 wedge=base+11
  5. 120 print"[147]    initializing..."
  6. 130 fork=basetobase+186:readn:pokek,n:c=c+n:next
  7. 140 ifc<>17067thenprint"error in data statements!":end
  8. 150 print"[147]to enable, type:":print"     auto <increment>"
  9. 160 print"to disable, type:":print"     auto"
  10. 170 x2=int(wedge/256):x1=wedge-x2*256:pokebase+1,x1:pokebase+6,x2
  11. 180 if vic=0 then 210
  12. 190 c=0:fork=1to6:readn:poke(base+n),peek(base+n)+32:c=c+n:next
  13. 200 ifc<>750then140
  14. 210 sysbase:clr:new
  15. 1000 data 169,11,141,2,3,169,192,141,3,3,96,173,54,3,208,5,173,55,3,240,49,173
  16. 1010 data 52,3,240,44,173,56,3,24,109,54,3,141,54,3,173,57,3,109,55,3,141,55,3
  17. 1020 data 174,54,3,32,205,189,169,32,32,210,255,169,2,133,198,169,145,141,119
  18. 1030 data 2,169,17,141,120,2,32,96,165,134,122,142,58,3,132,123,140,59,3,32
  19. 1040 data 115,0,144,67,240,65,201,65,208,84,32,115,0,201,85,208,77,32,115,0
  20. 1050 data 201,84,208,70,32,115,0,201,79,208,63,169,0,141,52,3,141,54,3,141,55
  21. 1060 data 3,32,115,0,32,107,169,165,20,141,56,3,240,3,141,52,3,165,21,141,57,3
  22. 1070 data 240,3,141,52,3,76,116,164,32,107,169,208,8,141,54,3,141,55,3,240,10
  23. 1080 data 165,20,141,54,3,165,21,141,55,3,174,58,3,172,59,3,76,134,164
  24. 1090 data 50,72,131,154,157,186
  25.